﻿Imports MeoTom.Core

Partial Public Class Admin
    Inherits MasterPage
    Private ReadOnly _objUtil As New Utilities.Common()

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        Session.CodePage = 65001
        Dim strUser As String = ""
        If _objUtil.GetCookie("UserName") = vbNullString Then
            strUser = _objUtil.GetSession("UserName")
        Else
            strUser = _objUtil.GetCookie("UserName")
        End If

        If Not strUser = vbNullString Then
            Label1.Text = strUser
        End If
    End Sub

End Class